home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 3 / 003.d81 / cover page (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  27 lines
  1. 5 ifa>.then55
  2. 6 poke56,128:clr:v=53248:s=54272:c2=56576
  3. 10 pokev+32,.:pokev+33,.:print"[147]         [204][207][193][196][211][212][193][210]  [206]umber #3"
  4. 15 print"  [201]t was once said that if man was ":print
  5. 20 print"meant to fly he would have been born ":print
  6. 30 print"with wings. ":print: print"  [215]e would like to disagree!!":print""
  7. 55 ifa=.thenprint"[158][204]oading [208]icture":a=1:load"cover.pic",8,1
  8. 56 ifa=1thena=2:load"cover.clb",8,1
  9. 57 ifa=2thena=3:load"cover.spr",8,1
  10. 58 ifa=4then100
  11. 60 s=54272:fori=.to23:pokes+i,.:next:pokes+24,15:pokes+5,255:pokes+6,255
  12. 65 pokes+12,255:pokes+13,255:pokes+19,255:pokes+20,255:pokes+1,3:pokes+8,3
  13. 70 pokes+15,3:pokes+7,7:pokes+14,18
  14. 75 poke56,128:clr:s=54272:v=53248:print"[145][156][208]ress space bar to view cover."
  15. 80 print"[208]ress it again to return to menu.":c2=56576
  16. 85 poke198,.:wait198,1:poke198,.:a=4:load"cover.cln",8,1
  17. 100 fori=.to7:pokev+i*2+1,51:pokev+i+39,7:readn,x:poke36856+i,n:pokev+i*2,x:next
  18. 101 data.,108,1,125,2,143,3,168,4,188,5,212,2,220,6,245
  19. 102 pokev+23,.:pokev+27,.:pokev+29,.
  20. 105 pokec2,149:pokev+17,59:pokev+22,24:pokev+24,56:pokev+21,255
  21. 110 pokes+4,17:pokes+11,17:pokes+18,17:poke198,.:wait198,1:poke198,.
  22. 115 pokev+21,.:pokec2,151:pokev+17,27:pokev+22,8:pokev+24,22
  23. 117 pokes+4,16:pokes+11,16:pokes+18,16:poke56,160:clr
  24. 120 print"[147][204]aunching [212]able of [195]ontents";
  25. 125 print"[144]load"chr$(34)"hello"chr$(34)",8":print"run":poke631,13:poke632,13
  26. 130 poke198,2:end
  27.